home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Freelog 4
/
FREELOG 4.iso
/
Prog
/
Delphi
/
Etape2
/
Unit1.dfm
/
Unit1.txt
< prev
Wrap
Text File
|
1999-07-19
|
5KB
|
138 lines
object Form1: TForm1
Left = 229
Top = 107
Width = 696
Height = 480
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
OnKeyDown = FormKeyDown
PixelsPerInch = 96
TextHeight = 13
object DXDraw1: TDXDraw
Left = 0
Top = 0
Width = 688
Height = 453
AutoInitialize = True
AutoSize = True
Color = clBtnFace
Display.FixedBitCount = True
Display.FixedRatio = True
Display.FixedSize = False
Options = [doAllowReboot, doWaitVBlank, doCenter, doHardware, doRetainedMode, doSelectDriver, doRGB, doMono, doDither]
SurfaceHeight = 453
SurfaceWidth = 688
Align = alClient
TabOrder = 0
end
object DXImageList1: TDXImageList
DXDraw = DXDraw1
Items = <
item
Name = 'vaisseau'
PatternHeight = 0
PatternWidth = 0
Picture.Data = {<image000.TDIB>}
SystemMemory = False
Transparent = True
TransparentColor = clBlack
end
item
Name = 'joueur'
PatternHeight = 0
PatternWidth = 0
Picture.Data = {<image001.TDIB>}
SystemMemory = False
Transparent = True
TransparentColor = clBlack
end
item
Name = 'laser'
PatternHeight = 0
PatternWidth = 0
Picture.Data = {<image002.TDIB>}
SystemMemory = False
Transparent = True
TransparentColor = clBlack
end>
Left = 32
Top = 16
end
object DXTimer1: TDXTimer
ActiveOnly = True
Enabled = True
Interval = 10
OnTimer = DXTimer1Timer
Left = 32
Top = 56
end
object DXSpriteEngine1: TDXSpriteEngine
DXDraw = DXDraw1
Left = 32
Top = 88
end
object DXInput1: TDXInput
ActiveOnly = True
Joystick.BindInputStates = True
Joystick.Effects.Effects = {
FF0A0044454C50484958464F524345464545444241434B454646454354003010
6C000000545046301D54466F726365466565646261636B456666656374436F6D
706F6E656E740007456666656374730E01044E616D650607456666656374730A
45666665637454797065070665744E6F6E6506506572696F64023205506F7765
720310270454696D6503E80300000000}
Joystick.Enabled = True
Joystick.ForceFeedback = False
Joystick.AutoCenter = True
Joystick.DeadZoneX = 50
Joystick.DeadZoneY = 50
Joystick.DeadZoneZ = 50
Joystick.ID = 0
Joystick.RangeX = 1000
Joystick.RangeY = 1000
Joystick.RangeZ = 1000
Keyboard.BindInputStates = True
Keyboard.Effects.Effects = {
FF0A0044454C50484958464F524345464545444241434B454646454354003010
6C000000545046301D54466F726365466565646261636B456666656374436F6D
706F6E656E740007456666656374730E01044E616D650607456666656374730A
45666665637454797065070665744E6F6E6506506572696F64023205506F7765
720310270454696D6503E80300000000}
Keyboard.Enabled = True
Keyboard.ForceFeedback = False
Keyboard.Assigns = {
4B00000026000000680000004A00000028000000620000004800000025000000
640000004C00000027000000660000005A000000200000000000000058000000
0D00000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000071000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000}
Mouse.BindInputStates = False
Mouse.Effects.Effects = {
FF0A0044454C50484958464F524345464545444241434B454646454354003010
6C000000545046301D54466F726365466565646261636B456666656374436F6D
706F6E656E740007456666656374730E01044E616D650607456666656374730A
45666665637454797065070665744E6F6E6506506572696F64023205506F7765
720310270454696D6503E80300000000}
Mouse.Enabled = False
Mouse.ForceFeedback = False
UseDirectInput = True
Left = 32
Top = 128
end
end